home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / rts / template.scm < prev    next >
Text File  |  1995-10-13  |  820b  |  28 lines
  1. ; -*- Mode: Scheme; Syntax: Scheme; Package: Scheme; -*-
  2. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  3.  
  4. ; Somewhat redundant with vm/istruct.scm.  Fix this some day.
  5.  
  6. ; Templates
  7. ;  Templates are made only by the compiler.
  8.  
  9. ;(define make-template make-vector)
  10.  
  11. ;(define (template? obj)
  12. ;  (and (vector? obj)
  13. ;       (>= (vector-length obj) template-overhead)
  14. ;       (code-vector? (template-code obj))
  15. ;       ))
  16.  
  17. ;(define template-length vector-length)
  18. ;(define template-ref vector-ref)
  19. ;(define template-set! vector-set!)
  20.  
  21. (define template-overhead 2)
  22.  
  23. (define (template-code tem) (template-ref tem 0))
  24. (define (template-info tem) (template-ref tem 1))
  25. (define (set-template-code! tem cv)   (template-set! tem 0 cv))
  26. (define (set-template-info! tem info) (template-set! tem 1 info))
  27.  
  28.